﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>

<%	dim rs,sql,i,name,id,page,fleg


	id=Request.QueryString("id")
	if id="" then id=1
	if not isnumeric(id) then id=1
	id=clng(id)

select case v
case "0"
we0="<br/>"
hr="------------<br/>"
%>
<card title="购物车"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title>购物车</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select	
%>
<%

		if sid="Null" then
		%><%=dao%><%=zi%>你还没登录请<%=zi0%><a href="/login.asp?sid=<%=sidd%>&amp;url=/shop/fileve.asp?id=<%=id%>">登陆</a>后再留览<%=we0%><%
		else
		qingtian.info
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "select [soid],[nid] from [qingtian_shopp] where soid="&id&" and nid="&qingtian.nid&""
        Rs.Open Sql,conn,1,3
	if not (rs.bof and rs.eof)  then
        Response.Write("" & we & "添加商品到购物车失败！" & we0 & "")
        else        
	rs.addnew
        rs("soid")=id        
        rs("nid")=qingtian.nid
	rs.update
        Response.Write("" & we & "添加商品到购物车成功！" & we0 & "")
        end if
	rs.close
	set rs=nothing
		end if
%>
<%=sou%><a href="fileve.asp?id=<%=id%>&amp;sid=<%=sidd%>">返回商品阅读</a><%=we0%>
<%=we%><a href="viewshopp.asp?id=<%=id%>&amp;sid=<%=sidd%>">进入我的购物车</a><%=we0%>
<%
end Function
%>
